﻿Module DISCARDS
    'Sub gather_web_page_OLD()
    '    'Dim table As Table



    '    n_table = ie.Tables.Count
    '    Dim o As Object
    '    o = ie.Elements
    '    Dim n_element As Integer
    '    '-------------------------------
    '    'this takes forever to run
    '    'n_element = ie.Elements.Count
    '    '-------------------------------
    '    n_element = 10000
    '    Dim i As Integer


    '    elems = ie.Elements


    '    i = 0
    '    '-----------------------------------------
    '    'get the date at the top of the page
    '    '-----------------------------------------
    '    elem = ie.Element(Find.ByClass("ban"))
    '    If elem.Exists Then
    '        the_date = elem.Text
    '    End If

    '    'elem = ie.Element(Find.ByText("$4400"))
    '    'exists = elem.Exists

    '    '-----------------------------------------
    '    'Debug.Print("exists=" & exists)


    '    Do While i < n_element

    '        Try
    '            elem = elems(i)
    '        Catch ex As Exception
    '            Stop
    '        End Try


    '        parent_elem = elem.Parent
    '        elem_name = elems(i).IdOrName
    '        class_name = elems(i).ClassName
    '        If class_name = "row" Then
    '            Debug.Print("--------------------")
    '        End If
    '        Debug.Print(i & " " & class_name & " -- " & elem_name)
    '        If class_name = "row" Then
    '            Dim ta As String
    '            Dim tb As String
    '            entry_text = elem.Text
    '            ta = elem.TextAfter
    '            tb = elem.TextBefore
    '            show_element(i, elems)
    '            write_entry()
    '            Exit Sub
    '        End If
    '        'Stop
    '        i = i + 1
    '    Loop
    '    elem = ie.Element(Find.By("tagname", "row"))


    'End Sub

End Module
